home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 101-125 / scopedisk122 / bassub / filerequestroutines.sub < prev    next >
Text File  |  1995-03-19  |  800b  |  41 lines
  1. REM fileroutines
  2. 'Several subroutines using ARP filerequestor
  3. 'Requires Requestor.SUB
  4. '
  5. 'do_open for opening a file
  6. 'do_save for saving a file
  7. 'do_delete for deleting a file
  8. 'Action$ = titlebar greeting
  9. 'Dir$ = directory
  10. 'FileName$ = filename
  11. SUB do_open(FileName$,Action$,Dir$)
  12.     DO
  13.         FileName$=""
  14.         CALL requestor(Action$,Dir$,FileName$,0)
  15.         IF FileName$="" THEN EXIT SUB
  16.         IF FileName$<>"" THEN EXIT DO
  17.         SLEEP
  18.     LOOP
  19. END SUB
  20.  
  21. SUB do_save(Action$,Dir$,FileName$)
  22.     DO
  23.         FileName$=""
  24.         CALL requestor(Action$,Dir$,FileName$,1)
  25.         IF FileName$="" THEN EXIT SUB
  26.         IF FileName$<>"" THEN EXIT DO
  27.         SLEEP
  28.     LOOP
  29. END SUB
  30.  
  31. SUB do_delete(Action$,Dir$,FileName$)
  32.     DO
  33.         FileName$=""
  34.         CALL requestor(Action$,Dir$,FileName$,1)
  35.         IF FileName$="" THEN EXIT SUB
  36.         IF FileName$<>"" THEN EXIT DO
  37.         SLEEP
  38.     LOOP
  39. END SUB
  40.  
  41.